home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / FredFish PD 312.adf / TrackSalve / Source / call.i < prev    next >
Text File  |  1990-02-12  |  2KB  |  99 lines
  1. LibCall         macro
  2.                 xref    _LVO\1
  3.                 jsr     _LVO\1(a6)
  4.                 endm
  5.  
  6. ExCall          macro
  7.                 xref    _SysBase
  8.                 ifd     Relative
  9.                 move.l  _SysBase(a4),a6
  10.                 endc
  11.                 ifnd    Relative
  12.                 move.l  _SysBase,a6
  13.                 endc
  14.                 xref    _LVO\1
  15.                 jsr     _LVO\1(a6)
  16.                 endm
  17.  
  18. DosCall         macro
  19.                 xref    _DOSBase
  20.                 ifd     Relative
  21.                 move.l  _DOSBase(a4),a6
  22.                 endc
  23.                 ifnd    Relative
  24.                 move.l  _DOSBase,a6
  25.                 endc
  26.                 xref    _LVO\1
  27.                 jsr     _LVO\1(a6)
  28.                 endm
  29.  
  30. IntCall         macro
  31.                 xref    _IntuitionBase
  32.                 ifd     Relative
  33.                 move.l  _IntuitionBase(a4),a6
  34.                 endc
  35.                 ifnd    Relative
  36.                 move.l  _IntuitionBase,a6
  37.                 endc
  38.                 xref    _LVO\1
  39.                 jsr     _LVO\1(a6)
  40.                 endm
  41.  
  42. Call            macro
  43.                 ifnd    \1
  44.                 xref    \1
  45.                 endc
  46.                 ifd     LatticeAsm
  47.                 jsr     \1(pc)
  48.                 endc
  49.                 ifnd    LatticeAsm
  50.                 bsr     \1
  51.                 endc
  52.                 endm
  53.  
  54. Jump            macro
  55.                 xref    \1
  56.                 ifd     LatticeAsm
  57.                 jmp     \1(pc)
  58.                 endc
  59.                 ifnd    LatticeAsm
  60.                 bra     \1
  61.                 endc
  62.                 endm
  63.  
  64.  
  65.                 ifnd    LatticeAsm
  66. Func            macro
  67.                 xdef    \1
  68. \1
  69.                 ifeq    NARG-1
  70.                 mexit
  71.                 endc
  72.                 xdef    \2
  73. \2
  74.                 ifeq    NARG-2
  75.                 mexit
  76.                 endc
  77.                 xdef    \3
  78. \3
  79.                 endm
  80.                 endc
  81.  
  82.                 ifd     LatticeAsm
  83. Func            macro
  84.                 ifnc    \1,''
  85.                 xdef    \1
  86. \1
  87.                 endc
  88.                 ifnc    \2,''
  89.                 xdef    \2
  90. \2
  91.                 endc
  92.                 ifnc    \3,''
  93.                 xdef    \3
  94. \3
  95.                 endc
  96.                 endm
  97.                 endc
  98.  
  99.